1 POKE55,0:POKE56,128:CLR
2 POKE53281,0:POKE53280,0:PRINTCHR$(147)CHR$(14)CHR$(8);
5 POKE53272,29
6 DIM M$(9),R$(4):F=0:FF=0:S=54272:GOSUB9900:L$="- - - - - -"
7 SP$="          "
10 FORI=1TO7:READM$(I):NEXT
11 DATA "[208]RINT [208]UZZLE (1525)   "
12 DATA "[208]RINT [208]UZZLE (OTHER)  "
13 DATA "[208]RINT [211]OLUTION (1525) "
14 DATA "[208]RINT [211]OLUTION (OTHER)"
15 DATA "[210]EAD [201]T               "
16 DATA "[195]REDITS               "
17 DATA "[204]OADSTAR              "
20 TP$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
22 MD$="[221][155]                                      [146][221]"
23 LN$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
24 BT$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
25 GOTO30
26 PRINT"[147]"TP$;
27 FORI=1TO23:PRINTMD$;:NEXT:PRINTBT$:POKE2023,125:POKE56295,1
28 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
30 GOSUB26
32 PRINT"[221][156]            [205]ISSING [205]IDDLES           [146][221]";
34 PRINTLN$;
60 POKE214,21:PRINT
65 PRINTLN$;
70 PRINT"[221][154]   [213]SE CURSOR KEYS/[210][197][212][213][210][206] TO SELECT   [146][221]";
80 GOSUB28
100 PRINT"";
102 PRINTTAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
104 QQ$="[221]                        [221]"
105 FORI=1TO9:PRINT""QQ$:NEXT
106 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
107 POKE214,5:PRINT
109 FORI=1TO7:PRINTTAB(9)""M$(I):NEXT
145 SYS52496,6
146 POKE198,0
150 R=5:M=1:POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M):M1=M:R1=R
155 GETK$:IFK$=""THEN155
160 IFK$=CHR$(13)THENGOSUB9930:GOTO200
165 IFK$="[145]"THENM=M-1:R=R-1:IFM<1THENM=7:R=11
170 IFK$=""THENM=M+1:R=R+1:IFM>7THENM=1:R=5
175 IFM<>M1THENPOKE214,R1:PRINT:PRINTTAB(9)""M$(M1):GOSUB9910
180 POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M)
182 M1=M:R1=R
185 GOTO155
190 :
200 ONMGOTO1000,1000,2000,2000,12000,500,11000
205 GOTO150
500 SYS52496,7
525 POKE214,15:PRINT:PRINTTAB(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
527 PRINTTAB(7)"[221]  [208]UZZLE [194]Y [194]. [211]CHULAK  [221]"
535 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
544 T=1
545 GETK$:IFK$<>""THEN550
546 T=T+1:IFT<100THEN545
550 SYS52499,7:GOSUB28:GOTO155
555 :
1000 GOSUB9000:IFPPTHEN155
1005 GOSUB6000
1010 IFM=1THENL$=" [164] [164] [164] "
1015 IFM=2THENL$=" - - - "
1020 OPEN4,4
1025 PRINT#4,SP$;"AND ARE CAR CUT ERE GIN HAS HAW IRE LAM"
1030 PRINT#4
1035 PRINT#4,SP$;"NAP ORE PAR PER PIE PIN RAP ROW SHE THE"
1040 PRINT#4:PRINT#4:PRINT#4
1045 PRINT#4,SP$;"C";L$;"Y"
1047 PRINT#4
1050 PRINT#4,SP$;"S";L$;"F"
1052 PRINT#4
1055 PRINT#4,SP$;"O";L$;"E"
1057 PRINT#4
1060 PRINT#4,SP$;"S";L$;"D"
1062 PRINT#4
1065 PRINT#4,SP$;"O";L$;"A"
1067 PRINT#4
1070 PRINT#4,SP$;"C";L$;"P"
1072 PRINT#4
1075 PRINT#4,SP$;"O";L$;"R"
1077 PRINT#4
1080 PRINT#4,SP$;"C";L$;"M"
1082 PRINT#4
1085 PRINT#4,SP$;"I";L$;"T"
1087 PRINT#4
1090 PRINT#4,SP$;"A";L$;"G"
1092 PRINT#4
1095 PRINT#4,SP$;"S";L$;"L"
1097 PRINT#4
1100 PRINT#4,SP$;"M";L$;"L"
1102 PRINT#4
1105 PRINT#4,SP$;"C";L$;"T"
1107 PRINT#4
1110 PRINT#4,SP$;"S";L$;"N"
1112 PRINT#4
1115 PRINT#4,SP$;"A";L$;"N"
1117 PRINT#4
1120 PRINT#4,SP$;"B";L$;"T"
1122 PRINT#4
1125 PRINT#4,SP$;"G";L$;"H"
1127 PRINT#4
1130 PRINT#4,SP$;"G";L$;"N"
1132 PRINT#4
1135 PRINT#4,SP$;"A";L$;"E"
1137 PRINT#4
1140 PRINT#4,SP$;"A";L$;"T"
1145 PRINT#4:CLOSE4:GOTO155
2000 GOSUB9000:IFPPTHEN155
2005 GOSUB6000
2007 OPEN4,4
2010 PRINT#4,SP$;"CANDY"
2015 PRINT#4,SP$;"SCARF"
2020 PRINT#4,SP$;"OPINE"
2025 PRINT#4,SP$;"SPIED"
2030 PRINT#4,SP$;"OPERA"
2035 PRINT#4,SP$;"CLAMP"
2040 PRINT#4,SP$;"OTHER"
2045 PRINT#4,SP$;"CHASM"
2050 PRINT#4,SP$;"INAPT"
2055 PRINT#4,SP$;"AGING"
2060 PRINT#4,SP$;"SHAWL"
2065 PRINT#4,SP$;"MOREL"
2070 PRINT#4,SP$;"CARET"
2072 PRINT#4,SP$;"SIREN"
2074 PRINT#4,SP$;"ASHEN"
2076 PRINT#4,SP$;"BERET"
2078 PRINT#4,SP$;"GRAPH"
2080 PRINT#4,SP$;"GROWN"
2082 PRINT#4,SP$;"ACUTE"
2084 PRINT#4,SP$;"APART"
2085 :
2092 PRINT#4:CLOSE4:GOTO155
6000 OPEN4,4
6005 PRINT#4, "          #89 - MISSING MIDDLES"
6006 PRINT#4
6010 PRINT#4:CLOSE4:RETURN
9000 SYS52496,7:PP=1
9005 POKE214,15:PRINT:PRINTTAB(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
9010 PRINTTAB(7)"[221]  [208]RINTER [210]EADY? [Y/N]  [221]"
9025 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
9035 GETK$:IFK$=""THEN9035
9036 IFK$="Y"THENPP=0
9040 SYS52499,7:GOSUB28:RETURN
9045 :
9800 POKE214,21:PRINT:PRINTLN$;
9805 PRINT"[221][154]             [208]RESS [210][197][212][213][210][206]             [146][221]";
9810 GETK$:IFK$<>CHR$(13)THEN9810
9815 RETURN
9820 :
9900 FORI=0TO24:POKES+I,.:NEXT:RETURN
9910 POKES+24,15:POKES+5,9:POKES+6,0
9915 POKES+1,19:POKES,63:POKES+4,17
9920 FORT=1TO50:NEXT:POKES+4,16:RETURN
9930 POKES+24,15:POKES+5,9:POKES+6,0
9935 POKES+1,48:POKES,0:POKES+4,17
9940 FORT=1TO50:NEXT:POKES+4,16:RETURN
10000 OPEN15,8,15,"S0:MISSING 89":CLOSE15:SAVE"0:MISSING 89",8:END
11000 POKE214,15:PRINT
11005 PRINTTAB(7)"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
11015 PRINTTAB(7)"[221]  [193]RE YOU SURE?  [Y/N]  [221]"
11025 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
11030 GETK$:IFK$=""THEN11030
11035 IFK$<>"Y"THENSYS52499,6:GOTO150
11037 PRINT"[147]":POKE53272,23
11040 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
11050 IFER%<>63THENPRINT"[147]":POKE43,1:POKE44,8:POKE2048,0:END
11055 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
11060 PRINT"RUN"
11061 POKE43,1:POKE44,8:POKE2048,0
11065 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
12000 SYS52496,7
12001 GOSUB26
12005 PRINT"[221][156]            [205]ISSING [205]IDDLES           [146][221]";
12010 PRINTLN$;
12015 PRINT"[155]    [213]SE THE THREE LETTER WORDS FOUND
12020 [153]"LIST AT THE TOP OF THE PAGE TO COMPLETE
12025 PRINT"[155] THE FIVE LETTER WORDS.  [198]OR EXAMPLE,
12030 [153]"LIST TO SOLVE (null)---(null), ENTER (null)STR$VAL.  VALACH
12035 PRINT"[155] WORD WILL BE USED ONLY ONE TIME.
12045 [153]"LIST    RIGHT$F YOU HAVE A PRINTER/INTERFACE
12050 PRINT"[155] COMBINATION THAT EMULATES THE
12055 [153]"LIST LEN1525 PRINTER, CHOOSE THE 1525 PRINT
12060 PRINT"[155] MODES TO PRINT THE PUZZLE AND
12065 [153]"LIST SOLUTION.  RIGHT$F YOUR PRINTER DOES
12070 PRINT"[155] NOT SUPPORT [195]OMMODORE GRAPHIC
12075 [153]"LIST CHARACTERS OR PRINTER COMMANDS,
12080 PRINT"[155] SELECT [207][212][200][197][210].
12100 [141]9800
12105 [158]52499,7:[141]28:[137]155